home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / obero / OberonAModules.lha / StringTools.Mod < prev    next >
Text File  |  1999-02-26  |  972b  |  67 lines
  1. (*
  2. StringTools.MOD ©1998-99 Morten Bjergstrøm
  3. EMail: mbjergstroem@hotmail.com
  4. *)
  5.  
  6. <*MAIN-*>
  7. MODULE StringTools;
  8.  
  9. IMPORT
  10.   Strings;
  11.  
  12.  
  13.  
  14. PROCEDURE CompareString*(string1,string2:ARRAY OF CHAR):SHORTINT;
  15.  
  16. VAR
  17.   counter:INTEGER;
  18.   length:INTEGER;
  19.   returnvalue:SHORTINT;
  20.   same:BOOLEAN;
  21.  
  22. BEGIN
  23.  
  24.   same:=FALSE;
  25.   counter:=0;
  26.  
  27.   IF Strings.Length(string1)>Strings.Length(string2) THEN
  28.     length:=Strings.Length(string2);
  29.   ELSE
  30.     length:=Strings.Length(string2);
  31.   END;
  32.  
  33.   LOOP
  34.  
  35.     IF ORD(string1[counter])=ORD(string2[counter]) THEN
  36.       same:=TRUE;
  37.     END;
  38.  
  39.     IF ORD(string1[counter])<ORD(string2[counter]) THEN
  40.       returnvalue:=-1;
  41.       same:=FALSE;
  42.       EXIT;
  43.     END;
  44.  
  45.     IF ORD(string1[counter])>ORD(string2[counter]) THEN
  46.       returnvalue:=1;
  47.       same:=FALSE;
  48.       EXIT;
  49.     END;
  50.  
  51.     INC(counter);
  52.     IF counter=length THEN EXIT END;
  53.  
  54.   END;
  55.  
  56.   IF same=TRUE THEN
  57.     returnvalue:=0;
  58.   END;
  59.  
  60.   RETURN returnvalue;
  61.  
  62.  
  63. END CompareString;
  64.  
  65.  
  66. END StringTools.
  67.